home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir24
/
frenchgp.zip
/
BYR31.ZIP
/
MRR.INC
< prev
next >
Wrap
Text File
|
1994-08-14
|
945b
|
47 lines
BOUCLE1:
DELBEGIN
READLINE
IF ERROR GOTO FIN
BOUCLE2:
SEND "^$^M"
CALL MWAITP.INC
IF NOT ERROR GOTO BOUCLE1
IF NOT CONNECTED GOTO ERREUR
CALL MWAITP.INC
IF NOT ERROR GOTO BOUCLE1
IF NOT CONNECTED GOTO ERREUR
CALL MWAITP.INC
IF NOT ERROR GOTO BOUCLE1
IF NOT CONNECTED GOTO ERREUR
CALL MWAITP.INC
IF NOT ERROR GOTO BOUCLE1
IF NOT CONNECTED GOTO ERREUR
CALL MWAITP.INC
IF NOT ERROR GOTO BOUCLE1
IF NOT CONNECTED GOTO ERREUR
CALL MWAITP.INC
IF NOT ERROR GOTO BOUCLE1
IF NOT CONNECTED GOTO ERREUR
CALL MWAITP.INC
IF NOT ERROR GOTO BOUCLE1
IF NOT CONNECTED GOTO ERREUR
CALL MWAITP.INC
IF NOT ERROR GOTO BOUCLE1
IF NOT CONNECTED GOTO ERREUR
CALL MWAITP.INC
IF NOT ERROR GOTO BOUCLE1
IF NOT CONNECTED GOTO ERREUR
CALL MWAITP.INC
IF ERROR GOTO ERREUR
GOTO BOUCLE1
ERREUR:
CALL MDISC1.INC
WAIT 30
CALL MCONNECT.INC
GOTO BOUCLE2
FIN:
CLOSE